program namelist1
implicit none
integer :: N
real :: t, x, Ecut
namelist /domain/ N, t, x, Ecut
end program
